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THIS MODULE CONTAINS THE RCUTINES THAT MANAGE THE 
REQUEST QUEUES. THESE ROUTINES FOLLOW THE DEFINITIONS 
OF THE FUNCTIONS AS DEFIND IN THE MIP ARCHITECTURE 
SPECIFICATION. THERE ARE SEVEN ROUTINES HERE. FOUR 
DIRECTLY MANAGE THE REQUEST QUEUES. THE OTHER THREE 
IMPLEMENT TIMEOUT FUNCTIONS USED TO DETERMINE IF THE 
DESTINATION DEVICE DOES NOT RESPOND. 


THE ROUTINES ARE: 


RQGPTR: REQGUEST-GET-POINTER. 
THIS ROUTINE RETURNS A POINTER TO THE NEXT FREE GIVE SLOT 
IN THE OUTPUT REQUEST QUEUE. 


RQTPTR: REQUEST~TAKE-~PCINTER. 
THIS ROUTINE RETURNS A POINTER TO THE NEXT FILLED TAKE SLCT 
IN THE INPUT REQUEST QUEUE, IF THERE IS SOMETHING THERE. 


RLGPTR: RELEAS 
& 


IVE-POINTER. 
THIS ROUTIN E 


Em G 
RELEASES THE FILLED GIVE SLOT. 
RLTPTR: RELEASE-TAKE~PGINTER. 

TAIS ROUTINE RELEASES THE EMPTIED TAKE SLOT. 


TREGPT: TIMED REQUEST~CIVE-PTR. 
THIS ROUTINE CALLS RQGPTR LOOKING FOR A NON~FULL STATE. IT 
IMPLEMENTS A TIMECUT FEATURE WHEN WAITING UPON A FULL OUTPUT 
REQUEST QUEUE. IF THE QUEUE DCES NOT BECOME NCN-FULL IN THE 
TIMEOUT PERTOO, THE DESTINATION DEVICE WILL BE DECLARED DEAD 
AND THE REQUEST ABCRTEC. 


INITT:. INITIALIZE TIMER. 
THIS ROUTINE INITIALIZES THE TIMEOUT TIMER. 


BUMPT: BUMP TIME. 
THIS ROUTINE BUMPS THE TIME IN THE TIMEOUT TIMER. THE TIMER 
TS A SOFTWARE LOOP THAT COUNTS FROM O TO 65K. 


declare Request$queueSdescriptor literally 


= ROSFLAG BYTE, 
RQFLAG2 byte, 
R@size hyte, 
RQES$size byte, 
GiveSindex bytes 
GiveSstate byte, 
TakeSindex byte, 
TakeSstate byte , 
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LOC O3J = LINE SCURCE STATEMENT 
55 PUBLIC RQGETR-ROTPTR-RLGPTR/-RLTPTR 
54 PUBLIC TRQGPT,-INITT/-BUMPT 
aT EXTRN CUTRGOD-INRQD 
58 . CseG 
59 
60 SINCLUDE(:F1I:MIP.EQU) 
= 61; 
= 62 7 DEFINE RQO RESULTS 
= 63; 
0001 = 64 GERRCR EQU 1H 
0004 = 65 GBUSY EGU 4H 
OOoC8 = 66 FIRSTG ERQU 8H 
001C = 67 GOISAB EQU 10H 
0020 = 68 GFULL =ZQU 20H 
0040 = 69 DISABT EQU 40H 
0080 = 70 FULLF EQU 80H 
= 71 
00C1 = 72 TERROR euuU 4H 
0004 = 73 TBUSY EQU 4H 
OOCcé& = 74 FIRSTT EGU aH. 
0010 = 75 TCISAB eQU. . 10H 
0020 = 76 TEMPTY EQU 20H 
0040 = 7f DCISABG EQU 40H 
OOEC = 78 EMPTYF - EQU 80H 
= 79 ; 
= 80 , DEFINE MIP CMDS ANC RESPONSES 
= 8&1, 
0070 = €&2 CSENCD EQU 70H 
008Q = 83 SENTOK EU 80H 
0081 = 84 UNKNP EQU 84H 
0083 = &5 ACTIVP eQU 83H 
0085 = 86 INSUFM =QU R5H 
0087 = 8&7 INACTP ERQU R7H 
0089 = &@3 DEADP EQU 89H 
= £9 ; 
= $0 7 OEFINE MIP“ISIS PARAMETERS. 
| = 91>, 
Qd0CQ = $2 MYIOS EQU 


WO 


0003 $3 THIDEV EQU 


$4 SEJECT 
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LOC OaJ LINE SCURCE STATEMENT 
9 5 r , \ 
96 + RQGPTR: THE OUTPUT OF THIS ROUTINE IS IN THE A AND H/L 
97 > REGISTERS. THE A REGISTER CONTAINS THE STANDARD 
98 ; MIF 3ITS WITH THE EXCEPTION OF THE BUSY 3ITS. 
$9 ; TF A REG DOES NOT INDICATE AN ERROR, THEN HL 
1cO ; CONTAINS THE POINTER TC THE FREE RQ SLOT 
101 7 
1G2 RQGPTR: 
ooco 01040C E 103 LXI 3,O0UTRQDt4 > GIVE 
0003 21060C E 104 LXI He OUTRQD+S2 > TAKE 
Oocé OA 105 LDAX B 7 GET INDEX/STATE 
OO0C7 AE 106 XRA } 
0008 57 107 MOV OA + SAVE EXCLUSIVE OR 
0009 E67F 108 ANI 7FH > GET INCEX PART 
OoGB c22c0C C 109 JNZ RL1A > JMP IF INDEXES ARE NOT EQUAL 
OOGE 7A 110 MOV A,D > GI=TIy SEE IF EMPTY OR FULL 
QOOCF £680 111 ANI 20H > IF GF=TF THEN G IS EMPTY 
0011 cA2c00 C T12 JZ RL1A 
0014 F621 113 CRI. 21H 
0016 CS 114. RET > GF<> TF, Q IS FULL 
> 2 7 : 
115 RQTPTR: . 
0017 AF | 147 XRA A > SET GIVE FLAG TO ZERO 
0018 32000C = 118 STA INRQD 
0013 010600 £ 119 LEXI By INRQD+E 7 TAKE 
Oo1£ 21040C E 120 LXI He INRQDt+4; > GIVE 
0021 11080C E 121 EXT O,INRGOtTE 
0024 OA : 122 LOAX B PTE 
0025 BE 123 CMP M > @ IS EMPTY IF GI=TI ANDO GF=TF 
0026 C22F0C Cc 124 JNZ RL1 > JUMP IF GI=TI AND GF=TF 
002$ F621 125 CRI 21H 7 EMPTY 
0028 C9 126 RET 
| 127 
oo0zc 110806 E 128 RLIA: LXI D,OUTRGDt8 
OOZF OA 129 RL1: LDAX 3 > INDEX 
0030 E67F 130 ANI 7FH | 
0022 87 131 ADD A 
0023 87 132 ADD A | 7 16 * INDEX 
0024 87 eFs3 ADO A 
0025 87 134 ADD A 
0036 6F 135 MOV Le>A 
0027 2600 136 MVI H,0O 
0029 15 ee A CAD Bs 
OO3A AF 128 XRA A 
0038 C9 139 RET 
140 . 
141 SEJECT 
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Loc Q8J LING SGURCE STATEMENT 


142 > RLGPTR: THIS ROLTINE HAS NO PARAMETERS. IT IS CALLED AFTER 
143 ; RQGPTR HAS BEEN CALLED AND THE GIVE SLOT FILLEO IN 
144 ; IN ORDER TO INCICATE TO THE DESTINATION DEVICE THAT 
145 ; SOMETHING IS IN THE QUELE. IT MUST BE CALLED ONLY 
146 ; AFTER RQGPTR HAS BEEN CALLED WITHOUT AN ERROR BEING 
147 ; RETURNED. THAT IS, RLGPTR MUST BE CALLED FCLLOWING 
148 ; SUCCESSFUL RQGPTR CALLS. THIS ROUTINE WILL ALSO 
149 ; GENERATE A SIGNAL INTERRUPT TO THE DESTINATION DEVICE 
150 RLGPTR: 

O00Zc 01040C E 151 LXI B,/OUTROQDt4 7 GIVE 

OO3F 21060C é 152 LXI HeOUTRQD+E > TAKE 

0042 OA 55 LDAX 3 7 GI 

00435 3c 154 INR A 

0044 £681 155 ANI 1H > FORM POSSIBLE NEW GI/FF 

0046 57 156 MOV C,+A 

0047 £601 157 ANI 1 > GET GI PART ONLY 

0049 5F 158 MOV E,A 

O04A 7E 159 MOV AyM 7 TI 

0048 E67F 160 ANI FA 

0040 82 1461 CMP e 

OO4E 7A 162 MOV A,D > PUT NEW GI/GF INTO A 

004F C2570C C 163 JNZ —-RL2 

0052 7é 164 MOV ° Asm. > FORM NEW GF=NOT TF 

0053 2F 165 CMA | | 

0054 £680 166 ANI 80H 

0056 383 167 CRA z > GI PART 

| 168 | 

0057 02 169 RL2: STAX 8 | > STORE NEW GI/GF 

0058 21000C E 170 LXI H,OUTRED 7 SET FLAG 

0058 3601 171 MVI Me 1H 

OO5D 3£02 | 172 MVI Arve 

OOSF D3A4 173 CUT OA4H 

0061 C9 174 RET 
175 
176 3 
177 7 RLTPTR: THIS ROUTINE HAS NO PARAMETERS. IT IS CALLED AFTER 
178 ; RQTPTR2 HAS BEEN CALLED AND THE GIVE SLOT FILLED IN 
179 7 IN ORDER TC INDICATE TO THE DESTINATION DEVICE THAT 
180 7 SOMETHING HAS SEEN TAKEN FROM THE QUEUE. T MUST BE 
1&1 ; CALLED ONLY AFTER ROTPTR HAS BEEN CALLED WITHOUT AN 
182 ; ERROR BEING RETURNEC. THAT IS, RLTPTR MUST BE CALLED 
1&3 ; FOLLOWING SUCCESSFUL RQGPTR CALLS. THIS ROUTINE WILL 
184 ; ALSO GENERATE AN INTERRUPT TO THE DESTINATION DEVICE. 
185 
1&6 RLTPTR: 

0062 010606 E 127 LXI Be INRQDtE + TAKE 

00é5 210406 E 188 UXT H,INRGO+4 , GIVE 

0068 OA 189 LOAX 8 ; TI 

0069 3C 190 INR A 

OOéA £6381 151 ANI 84H > FORM POSSISLE NEW TI/TF 

006C 57 192 MOV D-A . 

O0é0D £601 193 — ANT 1 > GET TI PART ONLY 

OOéF SF 194 MOV E+& 

OO7G 7é 155 MOV AsIA tg Ge 


0071 =A7F 194 ANT 7eY 
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LOC 


0073 
0074 
0075 
0078 
0079 
0078 


OOrCc 
007C 
00280 
O02 
0084 
0086 


0087 
OO&A 


O08D 
00590 
0051 
0054 
0095 
0056 


0057 
DOGA 
OOSC 
OO9E 
QOAD 
°O00A1 
OOA2 
OOA5 


0048. 


OOAA 
OOAD 
0080 


OBJ 


21000C 
C39106 


2A000C 


CD&70C 
cpooo0c 


CD8D0C 
C29A0C 


3e5] 
320506 
32050C 
Cy 


m 


LINE 


VL 
198 
199 


PO 
Ww 
“I 


mh no 
LI rn ro 
Oro w 


(ab Cod OS Gl Oh) dad 
oO. wu & Gl MP — 


hho MP PP) 


cork 


MACRO ASSEMBLER, V4.0 RQPRCC PAGE 5 
- 63/04/82 
SOURCE STATEMENT 
CMP Cc 
MOV A,D 7 POSSIBLE NEW TI/TF 
JNZ RL2 
MOV Avs th >, FORM NEW TF= GF 
ANI 80H 
CKA Ee , TI PART 
RLS: . STAX 8 7 STORE NEW TF/GF 
LXI H,OUTRGQDt1 7, SET FLAG 
MVI M,80d 
MVI Are 
CUT OA4H 
RET 
, . 
> THESE ARE TIMERS RCUTINES THAT VARIOUS OTHER RCUTINES USE FOR TIMECUT 
, PUPOSES 
A 
INITT: LXI HO 
JMP LO 
, 
, THIS RCUTINE 3UMPS THE TIMER. THE STATE IS RETURNEC VIA THE ZERO 
, FLAG. TF SET THEN THE TIMER HAS EXPIREC., 
4 
RBUMPT: LHLO | TIMER 
INX iH 
ECs - SHLO TIMER 
MOV AcH 
ORA L 
RET 
7 
> THIS IS A ROUTINE TO WAIT FOR A NON FULL OUTPUT RQO. IF AFTER 65K 
> TRIES, IT ISN’T NONFULL, IT ASSUMES THE OTHR DEVICE IS DEAD 
> A CEAD DEVICE IS INCICATED 2Y THE ZERO FLAG BEING SET. IF THE 
7 LERO FLAG IS NOT SET- THEN THE A REGISTER CONTAINS THE 
7 RGGPTR STATUS 2ITS. 
7 
TROGPT: CALL INITT > INIT TIMER 
Rs CALL RQGPTR y- GHECK. IP FULL 
MOV Cr A 
ANI GFULL . . 
MOV, Ar,C > RESTORE VALUE WITHOUT AFFECTING FLAGS” 
RZ , IF ZERG THEN WAS NOT FULL 
CALL 2UMPT 
JINZ L1 
7, TIMER EXPIRED, RETURN NON ZERO 
MVE A,SDISAB CR CISABG OR GERROR . 
STA CUTREDtT5 , SetT DEVICE TO DEAD 
STA INRQOCt5 
Red 


meet 
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LOC 


OBJ 


OOCC 0000 


PUBLIC SYMBOLS 


BUMPT C QO8C 
EXTERNAL SYMBOLS 
INRQG = QOOC 
USER SYMBOLS 
ACTIVP A GQ82 
FIRSTG A Q008 
INACTP A QO08? 
CUTRED = QO00C 
RQGPTR C QO0C 
THIDEV A COOZ 
ASSEMBLY 


INITT 


CUTRED 


BUMPT 
PLR STS. 
INITT 
RL1 
RQTPTR 
TIMER 


COMPLETE, NO 


ASSEMBLER, V4.0 


- O03/04/€E2 

SCURCE STATEMENT 
TIMER: OW 0 
vend ISISSraqproc;, 

END 
C 0087 RLGPTR C OG3C 
—E OOCC 
C 0080 CSEND A OC79 
A 0008 FULLF <A O0OG80 
C O08&7 INRQD = OCCO 
C O02F RLIA C O002C 
C 0017 SENTOK A OC280 
D o0co TREGPT C OC97 
ERRORS 


KRQPRCC 


RLTPTR 


DEADP 
GBUSY 
INSUFM 
RL2 
TBUSY 
UNKNP 


PAGE 


PPorprr yp 


0062 


RQGPTR 


DISABG 
GDISAB 
LO 

RL3 
TOISAB 


Poor ES 


C000 


0040 
0010 
0091 
007C 
0010 


RQTPTR 


OISABT 


RLGPTR 
TEMPTY 


BTPOOY YP 


0017 


0040 
0001 
OOGA 
003C 
0020 


TROGPT 


EMPTYF 
GFULL 
MYIDS 
RLTPTR 
TERROR 


POoOPpPrP Yb 


0cg97 


oC80 
0020 
oc00 
0062 
0c01 


